home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / DTMedia / Aldus Persuasion / INTERACTIVE / INTERACTIVE.rsrc / TEXT_1159.txt < prev    next >
Text File  |  1988-11-03  |  494b  |  26 lines
  1. Â#
  2. set &H = (spriteh[14] )
  3. set &V = ( spritev[14])
  4. puppet sprite 17 true
  5. set &A = 0
  6. if &A = 5 then skip 6
  7. set &A = &A + 1
  8. set spriteh[17] = &H
  9. set spritev[17] = &V  
  10. govar frame
  11. skip -5
  12. puppet sprite 17 false
  13. govar frame
  14. puppet sprite 12 true
  15. puppet sprite 14 false
  16. set spritev[12] = (&V - 7 )
  17. set spriteh[12] = (&H - 72)
  18. set spriteh[10] = &H
  19. set spritev[10] = &V
  20. immediate sprite 10 false
  21. govar frame
  22. set &A = 0
  23. set spritev[14] = H88
  24. immediate sprite 10 true
  25. when mouseup then
  26. call c18uÀá